#test.pl

$_="11111 asdfg 22222 asfffg 33333
qwetr 111111
";
while(<>){
if(\d{5}){
	print $_;
	}
}
print $_;